home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Scene 96
/
Scene 96 International Edition (Zyklop Software) (Disc 1) (1997).iso
/
emulator
/
c64s
/
testdisk.d64
/
relais
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1996-02-18
|
549b
|
33 lines
5 PRINT "[147]"
10 PRINT "TASTEN 1 BIS 4 SCHALTEN DIE RELAIS"
15 R1=-1:R2=-1:R3=-1:R4=-1
20 GET A
30 IF A = 1 THEN R1=R1*-1:GOTO100
40 IF A = 2 THEN R2=R2*-1:GOTO200
50 IF A = 3 THEN R3=R3*-1:GOTO300
60 IF A = 4 THEN R4=R4*-1:GOTO400
100 POKE 214,23
110 POKE 211,38
112 SYS 58640
120 IF R1=1 THEN PRINT "[209]"
127 IF R1=-1THEN PRINT " "
130 GOTO 20
200 POKE 214,23
210 POKE 211,34
220 SYS 58640
225 IF R2=1 THEN PRINT "[209]"
227 IF R2=-1THEN PRINT " "
230 GOTO 20
300 POKE 214,23
310 POKE 211,30
320 SYS 58640
325 IF R3=1 THEN PRINT "[209]"
327 IF R3=-1THEN PRINT " "
330 GOTO 20
400 POKE 214,23
410 POKE 211,26
420 SYS 58640
425 IF R4=1 THEN PRINT "[209]"
427 IF R4=-1THEN PRINT " "
430 GOTO 20